object frmContrators: TfrmContrators
  Left = 300
  Top = 184
  Width = 696
  Height = 438
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1082#1086#1085#1090#1088#1072#1075#1077#1085#1090#1086#1074
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object pnlClient: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 380
    Align = alClient
    BevelInner = bvSpace
    BevelOuter = bvLowered
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 2
      Top = 2
      Width = 684
      Height = 28
      AutoSize = True
      ButtonHeight = 24
      ButtonWidth = 25
      Caption = 'ToolBarClients'
      Images = DM.ImageListMain
      TabOrder = 0
      object ToolButtonEditContractor: TToolButton
        Left = 0
        Top = 2
        Action = actEditClient
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButtonAddContractor: TToolButton
        Left = 25
        Top = 2
        Action = actAddClient
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButtonDeleteContractor: TToolButton
        Left = 50
        Top = 2
        Action = actDeleteClient
        ParentShowHint = False
        ShowHint = True
      end
    end
    object cxgContractors: TcxGrid
      Left = 2
      Top = 30
      Width = 684
      Height = 348
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      PopupMenu = PopupMenu
      TabOrder = 1
      LookAndFeel.Kind = lfOffice11
      LookAndFeel.NativeStyle = False
      object cxgContractorsDBTableView1: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        OnCellDblClick = cxgContractorsDBTableView1CellDblClick
        DataController.DataSource = dsContractors
        DataController.KeyFieldNames = 'id_contractor'
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsBehavior.GoToNextCellOnEnter = True
        OptionsBehavior.IncSearch = True
        OptionsCustomize.ColumnHidingOnGrouping = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsSelection.CellSelect = False
        OptionsView.ColumnAutoWidth = True
        OptionsView.HeaderEndEllipsis = True
        Styles.Selection = DM.sSelection
        Styles.Header = DM.sHeader
        object cxgContractorsDBTableView1DBTitle: TcxGridDBColumn
          Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1080
          DataBinding.FieldName = 'title'
        end
        object cxgContractorsDBTableView1DBPostAddress: TcxGridDBColumn
          Caption = #1055#1086#1095#1090#1086#1074#1099#1081' '#1072#1076#1088#1077#1089
          DataBinding.FieldName = 'post_address'
        end
        object cxgContractorsDBTableView1DBLegalAddress: TcxGridDBColumn
          Caption = #1070#1088#1080#1076#1080#1095#1077#1089#1082#1080#1081' '#1072#1076#1088#1077#1089
          DataBinding.FieldName = 'legal_address'
        end
        object cxgContractorsDBTableView1DBInn: TcxGridDBColumn
          Caption = #1048#1053#1053
          DataBinding.FieldName = 'inn'
        end
        object cxgContractorsDBTableView1DBPhone: TcxGridDBColumn
          Caption = #1058#1077#1083#1077#1092#1086#1085
          DataBinding.FieldName = 'phone'
        end
        object cxgContractorsDBTableView1DBFax: TcxGridDBColumn
          Caption = #1060#1072#1082#1089
          DataBinding.FieldName = 'fax'
        end
        object cxgContractorsDBTableView1DBwww: TcxGridDBColumn
          Caption = 'WWW'
          DataBinding.FieldName = 'www'
        end
        object cxgContractorsDBTableView1DBEmail: TcxGridDBColumn
          Caption = 'E-Mail'
          DataBinding.FieldName = 'email'
        end
        object cxgContractorsDBTableView1DBContactPerson: TcxGridDBColumn
          Caption = #1050#1086#1085#1090#1072#1082#1090#1085#1086#1077' '#1087#1080#1089#1100#1084#1086
          DataBinding.FieldName = 'contact_person'
        end
      end
      object cxgContractorsLevel1: TcxGridLevel
        GridView = cxgContractorsDBTableView1
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 380
    Width = 688
    Height = 31
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      688
      31)
    object btnClose: TButton
      Left = 604
      Top = 4
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #1047#1072#1082#1088#1099#1090#1100
      TabOrder = 0
      OnClick = btnCloseClick
    end
    object bSelect: TButton
      Left = 523
      Top = 4
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #1042#1099#1073#1088#1072#1090#1100
      Default = True
      TabOrder = 1
      Visible = False
      OnClick = bSelectClick
    end
  end
  object qContractors: TADOQuery
    Connection = DM.Conection
    Filter = 'isOldWorker=false'
    Parameters = <>
    SQL.Strings = (
      'SELECT *               '
      'FROM Contractor')
    Left = 80
    Top = 208
  end
  object ActionList: TActionList
    Images = DM.ImageListMain
    Left = 264
    Top = 128
    object actAddClient: TAction
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1085#1086#1074#1086#1075#1086' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
      ImageIndex = 0
      ShortCut = 16449
      OnExecute = actAddClientExecute
    end
    object actDeleteClient: TAction
      Caption = #1059#1076#1072#1083#1080#1090#1100
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
      ImageIndex = 1
      OnExecute = actDeleteClientExecute
      OnUpdate = actDeleteClientUpdate
    end
    object actEditClient: TAction
      Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1074#1072#1090#1100
      Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100' '#1076#1072#1085#1085#1099#1077' '#1087#1086' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1091
      ImageIndex = 2
      ShortCut = 16453
      OnExecute = actEditClientExecute
      OnUpdate = actEditClientUpdate
    end
    object actFilterPayment: TAction
      Caption = 'actFilterPayment'
      Hint = #1060#1080#1083#1100#1090#1088' '#1087#1086' '#1091#1074#1086#1083#1077#1085#1085#1099#1084' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072#1084
      ImageIndex = 7
    end
  end
  object dsContractors: TDataSource
    DataSet = qContractors
    Left = 80
    Top = 260
  end
  object PopupMenu: TPopupMenu
    Images = DM.ImageListMain
    Left = 164
    Top = 212
    object N1: TMenuItem
      Action = actAddClient
      SubMenuImages = DM.ImageListMain
      Default = True
    end
    object N2: TMenuItem
      Action = actEditClient
    end
    object N3: TMenuItem
      Action = actDeleteClient
    end
  end
end
